5 PRINT"[147][156]":POKE 53272,20:POKE 53280,15:POKE 53281,0
7 PRINT""
9 PRINTTAB(11):PRINT"[156]  CONVERSIONS  "
11 PRINT""
13 PRINT"[159]                     [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
15 PRINT"[158]                      AN[170][205][206][180][213][201]
17 [153]"                        +  SGNMID$TAN PROGRAM
19 PRINT"[159]                     [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
20 FOR N=1TO3000:NEXT N
90 POKE53281,1
100 PRINT"             * * * * *"
110 PRINT""
120 PRINT"THIS PROGRAM WAS DESIGNED TO ALLOW CON-"
130 PRINT"VERSIONS FROM ONE MEASUREMENT TO ANOTHER
140 [153]"FOR EXAMPLE: FROM FARENHEIT TO CELCIUS"
150 [153]
170 [153]"THE COMPUTER WILL ASK FOR THE TYPE OF   CONVERSION."
175 [153]
180 [153]"AFTER DESIGNATING THE CONVERSION, YOU"
190 [153]"SHOULD ENTER THE MEASUREMENT YOU WANT TOCONVERT."
195 [153]
197 [153]"ANSWERS WILL BE GIVEN TO THREE DECIMAL  PLACES."
198 [153]
200 [153]"THE COMPUTER WILL RETURN THE FIGURE
220 PRINT"IMMEDIATELY"
270 PRINT
280 PRINT"YOU WILL CHOOSE YOUR MEASUREMENT TYPE"
282 PRINT" FROM A MENU OF ALL TYPES AVAILABLE."
284 PRINT"PRESS ANY KEY TO CONTINUE.
286 [161] A$:[139]A$[178]""[167] 286
287 [153]"LOAD"
290 [153]"                  MENU                  "
295 [153]
300 [153]"      STOP1WAIT.  FARENHEIT TO CELCIUS OR"
310 [153]"          CELCIUS TO FARENHEIT"
320 [153]"      2WAIT.  INCHES TO CENTIMETERS OR"
325 [153]"          CENTIMETERS TO INCHES"
330 [153]"      3WAIT.  FEET TO METERS OR"
335 [153]"          METERS TO FEET"
340 [153]"      4WAIT.  MILES TO KILOMETERS OR"
345 [153]"          KILOMETERS TO MILES"
350 [153]"      CLR5WAIT.  OUNCES TO GRAMS OR"
355 [153]"          GRAMS TO OUNCES"
360 [153]"      VERIFY6WAIT.  POUNDS TO KILOS OR"
365 [153]"          KILOS TO POUNDS"
370 [153]"      CONT7WAIT   QUARTS TO LITERS OR "
371 [153]"          LITERS TO QUARTS"
372 [153]"      DEF8WAIT.  GALLONS TO LITERS OR"
373 [153]"          LITERS TO GALLONS"
374 [153]"STOP          - - - - - - - - - "
375 [153]"      FOR9WAIT.  EXIT PROGRAM"
380 [153]""
400 [153]"PLEASE PRESS THE NUMBER OF THE CONVER-  SION YOU DESIRE AND HIT RETURN."
405 [133] A
411 [139]A[178]2[167] [137] 600
412 [139]A[178]3[167] [137] 700
413 [139]A[178]4[167] [137] 800
414 [139]A[178]5[167] [137] 900
415 [139]A[178]6[167] [137] 1000
416 [139]A[178]7[167] [137] 1100
417 [139]A[178]8[167] [137] 1200
470 [139] A[178]9[167] [128]
500 [153]"LOADSTOPFAHRENHEIT, TO CELCIUS OR VICE VERSA":[153]
510 [153]"IF FAHRENHEIT TO CELCIUS, PRESS F":[153]
520 [153]"IF CELCIUS TO FAHRENHEIT, PRESS C":[153]
525 [133] A$
530 [139]A$[178]"F"[137] 535
532 [139]A$[178]"C"[137] 555
535 [133] "ENTER DEGREES FAHRENHEIT: ";F
537 [153]
540 C[178](F[171]32)[172]5[173]9:C[178]C[172]1000[170].5:C[178]([181](C))[173]1000
550 [153] F;"DEG. FAHRENHEIT = ";C;" DEG.     CELCIUS"
552 [153]:[137] 575
555 [133] "ENTER DEGREES CELCIUS: ";C
556 [153]:F[178](C[172]9)[173]5[170]32
565 [153] C;"DEG. CELCIUS = ";F;"DEG. FAHRENHEIT":[153]
575 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS SAME TYPE?  PRESS Y OR N"
580 [133] B$:[139] B$[178]"Y"[137] 500
585 [139] B$[178]"N"[137] 287
600 [153]"LOADINCHES TO CENTIMETERS OR VICE VERSA"
602 [153]
605 [153]"IF INCHES TO CENTIMETERS, PRESS I"
607 [153]
610 [153]"IF CENTIMETERS TO INCHES, PRESS C"
612 [153]
615 [133] A$
617 [139] A$[178]"I"[167] [137] 625
620 [139] A$[178]"C"[167] [137] 650
625 [133]"ENTER NUMBER OF INCHES:";I
627 [153]
630 C[178]2.54[172]I:C[178]C[172]1000[170].5:C[178]([181](C))[173]1000
635 [153] I;"INCHES =";C;"CENTIMETERS"
636 [153]:[153]"TO DETERMINE FRACTIONAL EQUIVALENTS, PRESS F"
637 [153]:[153]"IF YOU DON'T WANT FRACTIONAL EQUIVALENTSPRESS N"
638 [133] C$:[139] C$[178]"F"[167] [137] 1300
639 [153]:[139] C$[178]"N"[167] [137] 640
640 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE?  PRESS Y OR N"
642 [133] B$
644 [139] B$[178]"Y"[167] [137] 600
646 [139] B$[178]"N"[167] [137] 287
650 [133]"ENTER NUMBER OF CENTIMETERS:";C
651 [153]
652 I[178].394[172]C:I[178]I[172]1000[170].5:I[178]([181](I))[173]1000
655 [153] C;"CENTIMETERS =";I;"INCHES"
657 [153]:[153]
660 [137] 636
700 [153]"LOADFEET TO METERS OR VICE VERSA"
701 [153]
702 [153]"IN THIS CATEGORY YOU MAY ALSO CHOOSE    YARDS TO METERS OR VICE VERSA."
703 [153]
704 [153]"IF FEET TO METERS, PRESS F"
706 [153]
708 [153]"IF YARDS TO METERS, PRESS Y"
710 [153]
712 [153]"IF METERS TO FEET, PRESS M"
714 [153]
716 [153]"IF METERS TO YARDS, PRESS X"
718 [153]
720 [133] A$
722 [139] A$[178]"F"[167] [137] 730
724 [139] A$[178]"Y"[167] [137] 750
726 [139] A$[178]"M"[167] [137] 765
728 [139] A$[178]"X"[167] [137] 775
730 [133]"ENTER NUMBER OF FEET: ";F
732 [153]
734 M[178].305[172]F:M[178]M[172]1000[170].5:M[178]([181](M))[173]1000
736 [153] F;"FEET = ";M;"METERS"
738 [153]
740 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE?  PRESS Y OR N"
742 [133] B$
744 [139] B$[178]"Y"[167] [137] 700
746 [139] B$[178]"N"[167] [137] 287
750 [133] "ENTER NUMBER OF YARDS:";Y
752 [153]
754 M[178].914[172]Y:M[178](([181](M[172]1000))[173]1000)
756 [153] Y;"YARDS = ";M;"METERS"
758 [153]
760 [137] 740
762 [139]
765 [133]"ENTER NUMBER OF METERS: ";M
767 [153]
769 F[178]3.05[172]M:F[178]F[172]1000[170].5:F[178]([181](F))[173]1000
770 [153] M;"METERS = ";F;"FEET"
771 [153]
772 [137] 740
775 [153]
777 [133]"ENTER NUMBER OF METERS:";X
779 [153]
780 Y[178]1.094[172]X:Y[178]Y[172]1000[170].5:Y[178]([181](Y))[173]1000
782 [153] X;"METERS = ";Y;"YARDS"
784 [153]
786 [137] 740
800 [153]"LOADMILES TO KILOMETERS OR VICE VERSA"
805 [153]
810 [153]"IF MILES TO KILOMETERS, PRESS M"
815 [153]
820 [153]"IF KILOMETERS TO MILES, PRESS K"
825 [153]
830 [133] C$
831 [139] C$[178]"M"[137] 833
832 [139] C$[178]"K"[137] 850
833 [153]
834 [153]"ENTER NUMBER OF MILES:";:[133] M
835 [153]
839 K[178]1.609[172]M:K[178](([181](K[172]1000))[173]1000)
842 [153]
845 [153]M;"MILES = ";K;"KILOMETERS"
846 [137] 875
850 [153]:[133]"ENTER NUMBER OF KILOMETERS:";K
852 [153]:[153]
853 M[178].622[172]K:M[178](([181](M[172]1000))[173]1000)
855 [153] K;"KILOMETERS = ";M;"MILES"
875 [153]:[153]
876 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS TYPE? PRESS Y OR N"
877 [133] D$
878 [139] D$[178]"Y"[137] 800
880 [139] D$[178]"N"[137] 287
900 [153]"LOADCLROUNCES TO GRAMS ORVICE VERSA":[153]
905 [153]
910 [153]"IF OUNCES TO GRAMS, PRESS O"
915 [153]
920 [153]"IF GRAMS TO OUNCES, PRESS G"
925 [153]
930 [133] D$
935 [139] D$[178]"O"[167] [137] 940
940 [139] D$[178]"G"[167] [137] 980
942 [153]
945 [133] "ENTER NUMBER OF OUNCES: ";O
950 [153]
955 G[178]O[172]31.103:G[178](([181](G[172]1000))[173]1000)
960 [153] O;"OUNCES = ";G;"GRAMS"
965 [153]
970 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS TYPE?  PRESS Y OR N"
972 [133] X$
974 [139] X$[178]"Y"[167] [137] 900
975 [139] X$[178]"N"[167] [137] 287
980 [153]:[133] "ENTER NUMBER OF GRAMS: ";G
982 [153]
985 O[178]G[173]31.103:O[178](([181](O[172]1000))[173]1000)
987 [153] G;"GRAMS = ";O;"OUNCES"
988 [153]
990 [137] 970
1000 [153]"LOADVERIFYPOUNDS TO KILOS OR VICE VERSA"
1005 [153]
1010 [153]"IF POUNDS TO KILOS, PRESS P"
1015 [153]
1020 [153]"IF KILOS TO POUNDS, PRESS K"
1025 [153]
1030 [133] A$
1035 [139] A$[178]"P"[167] [137] 1045
1040 [139] A$[178]"K"[167] [137] 1075
1045 [133]"ENTER NUMBER OF POUNDS:";P
1047 [153]
1050 K[178]P[173]2.207:K[178](([181](K[172]1000))[173]1000)
1055 [153] P;"POUNDS = ";K;"KILOS"
1060 [153]
1065 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE? PRESS Y OR N"
1067 [133] B$
1069 [139] B$[178]"Y"[167] [137] 1000
1070 [139] B$[178]"N"[167] [137] 287
1075 [153]:[133]"ENTER NUMBER OF KILOS: ";K
1077 [153]
1080 P[178]K[172]2.207:P[178](([181](P[172]1000))[173]1000)
1085 [153] K;"KILOS = ";P;"POUNDS"
1087 [153]
1090 [137] 1065
1100 [153]"LOADCONTQUARTS TO LITERS OR VICE VERSAWAIT"
1105 [153]
1110 [153]"IF QUARTS TO LITERS, PRESS Q"
1115 [153]
1120 [153]"IF LITERS TO QUARTS, PRESS L"
1125 [153]
1130 [133] A$
1135 [139] A$[178]"Q"[167] [137] 1140
1137 [139] A$[178]"L"[167] [137] 1180
1140 [153]
1145 [133]"ENTER NUMBER OF QUARTS:";G
1150 [153]
1155 L[178](.946[172]G):L[178]L[172]1000[170].5:L[178]([181](L))[173]1000
1160 [153] G;"QUARTS = ";L;"LITERS"
1165 [153]
1170 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE?  PRESS Y OR N"
1171 [153]
1172 [133] B$
1174 [139] B$[178]"Y"[167] [137] 1100
1175 [139] B$[178]"N"[167] [137] 287
1180 [153]:[133]"ENTER NUMBER OF LITERS: ";L
1182 [153]
1185 G[178]L[173].946:G[178](([181](G[172]1000))[173]1000)
1187 [153] L;"LITERS = ";G;"QUARTS"
1190 [137] 1165
1200 [153]"LOAD"
1205 [153]"DEFGALLONS TO LITERS OR VICE VERSA"
1206 [153]
1210 [153]"IF GALLONS TO LITERS, PRESS G"
1212 [153]
1215 [153]"IF LITERS TO GALLONS, PRESS L"
1217 [153]
1220 [133] A$
1225 [139] A$[178]"G"[167] [137] 1230
1227 [139] A$[178]"L"[167] [137] 1270
1230 [133]"ENTER NUMBER OF GALLONS: ";G
1232 [153]
1235 L[178]3.785[172]G:L[178](([181](L[172]1000))[173]1000)
1240 [153] G;"GALLONS = ";L;"LITERS
1245 PRINT
1250 PRINT"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE? PRESS Y OR N"
1252 INPUT B$
1254 IF B$="Y"THEN GOTO 1200
1255 IF B$="N"THEN GOTO 287
1270 PRINT
1275 INPUT"ENTER NUMBER OF LITERS: ";L
1277 PRINT
1280 G=.264*L:G=((INT(G*1000))/1000)
1282 PRINT L;"LITERS = ";G;"GALLONS"
1285 GOTO 1250
1300 PRINT:PRINT"[147]"
1305 PRINT"DECIMAL EQUIV. FOR FRACTIONS OF AN INCH[146]":PRINT
1310 PRINT" 1/32=.0312    3/32=.0937"
1311 PRINT" 5/32=.1562    7/32=.2187"
1312 PRINT" 9/32=.2812   11/32=.3437"
1313 PRINT"13/32=.4062   15/32=.4687"
1314 PRINT"17/32=.5312   19/32=.5937"
1315 PRINT"21/32=.6562   23/32=.7187"
1316 PRINT"25/32=.7812   27/32=.8437"
1317 PRINT"29/32=.9062"
1318 PRINT
1320 PRINT" 1/16=.0625    3/16=.1875"
1321 PRINT" 5/16=.3125    7/16=.4375"
1322 PRINT" 9/16=.5625   11/16=.6875"
1323 PRINT"13/16=.8125   15/16=.9375"
1324 PRINT
1325 PRINT"  1/8=.1250     3/8=.3750"
1326 PRINT"  5/8=.6250     7/8=.8750"
1328 PRINT"  1/4=.25       3/4=.75"
1329 PRINT"  1/2=.5
1330 [153]"YOU MAY USE THIS TABLE TO CONVERT FRAC- TIONS TO DECIMALS OR VICE VERSA."
1331 [153]:[153]"PRESS ANY KEY TO CONTINUE."
1332 [133] J$
1333 [137] 640